home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)TA / (A)TAV.ADF / Startup13 / StartupII < prev   
Text File  |  1988-11-26  |  1KB  |  40 lines
  1. Echo "Running StartupII"
  2. resident c:Resident pure
  3. resident c:List pure ;pre-load LIST and CD
  4. resident c:CD pure
  5. resident c:Mount pure ;the next 3 are loaded for speed during startup
  6. resident c:Assign pure
  7. resident c:Makedir pure  
  8. ;make IF, ENDIF, ELSE, SKIP, ENDSKIP, and ECHO resident if
  9. ;you use scripts much, and can afford the ram.
  10. ;also make Failat, WAIT, and ENDCLI resident if you use IconX a lot
  11. makedir ram:t
  12. assign T: ram:t ;set up T: directory for scripts
  13. makedir ram:env ; set up ENV: directory
  14. assign ENV: ram:env
  15. makedir ram:clipboards ;set up CLIPS: assign
  16. assign CLIPS: ram:clipboards
  17. failat 30
  18. Assign >NIL: Rad: exists
  19. If Not warn
  20. If Exists Rad:Empty
  21. Echo "Running Rescom"
  22. Run >NIL: execute s:rescom
  23. Else
  24. Skip NoRescom
  25. endif
  26. Else
  27. Echo "Running Rescom"
  28. Run >NIL: execute s:rescom
  29. endif
  30. Lab NoRescom
  31. failat 10
  32. mount speak: ;just mounting doesn't take much ram at all
  33. mount aux:
  34. mount pipe:
  35. resident Mount remove ;if you have enough ram, keep these resident
  36. resident Assign remove  ;by removing these lines
  37. resident Makedir remove
  38. ;
  39. break 1 C ;signal to other process its ok to finish
  40.